GET CMD LINE PARM
This subroutine checks for the existence of a parameter on the command line used to invoke the current engine. Two arguments are expected to be passed to the subroutine:
Parameter to be checked (alpha field, maximum length 132)
Buffer for returned value (alpha field, maximum length 2048 or 2K)
Must be PASS'ed shared.
Returns specified parameter only if it existed on the command line.
The subroutine can be invoked via SUBR or GOSUB.
The following example generates a message or warning depending on whether or not the parameter -m existed on the command line when the APPX engine was invoked.
SET --- TEMP 132 = -m
SET --- TEMP 256 =
*
PASS --- TEMP 132 FIELD SHARE? N
PASS --- TEMP 256 FIELD SHARE? Y
SUBR --- GET CMD LINE PARM DETACHED END? N FAIL 0
*
IF --- TEMP 256 EQ --- TEMP 132
T APPEND --- TEMP 132 1 found
F APPEND --- TEMP 132 1 not found
- APPEND --- TEMP 132 1 on command line
T MESSAGE TEMP 132
F WARNING TEMP 132
|